home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(05-1985).d64 / tiny dir prt (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  64 lines
  1. 10 : REM: MODIFIED FOR A GEMINI 10X TO PRINT CONDENSED SUPERSCRIPT PRINT BY B.B
  2. 15 OPEN4,4:PRINT#4,CHR$(27)CHR$(64):PRINT#4:CLOSE4
  3. 30 OPEN1,4:PRINT#1,CHR$(27)CHR$(77)CHR$(10)CHR$(27)CHR$(83)CHR$(0)CHR$(20):PRINT#1:CLOSE1
  4. 90 EE$=CHR$(27):Q$=CHR$(193):QQ$=CHR$(8)
  5. 95 Z$=EE$+Q$+QQ$:OPEN4,4:PRINT#4,Z$:CLOSE4
  6. 100 DIMFX$(256),FT$(256),FL(256),TT(256):N=-1:FORI=1TO256:FX$(I)="":NEXT:X=221
  7. 110 BL$=" ":FORI=1TO40:BL$=BL$+" ":NEXT
  8. 120 CLOSE15:OPEN15,8,15:OPEN1,8,0,"$0":GOSUB480:GET#1,A$,B$
  9. 130 W=51:L$="":INPUT"[147]DISK ID #";L$
  10. 135 IFLEN(L$)>22THENPRINT"DISK ID # TOO LONG-MAX IS 22 CHARACTERS.":GOTO30
  11. 140 GET#1,A$,B$:GET#1,A$,B$:C=0:IFA$<>""THENC=ASC(A$)
  12. 150 IFB$<>""THENC=C+ASC(B$)*256
  13. 160 N=N+1:FL(N)=C
  14. 170 GET#1,B$:IFST<>0THEN 260
  15. 180 IFB$<>CHR$(34)THEN170
  16. 190 N$=""
  17. 200 GET#1,B$:IFB$<>CHR$(34)THENN$=N$+B$:GOTO200
  18. 210 FX$(N)=N$
  19. 220 GET#1,B$:IFB$=CHR$(32)THEN220
  20. 230 C$=""
  21. 240 C$=C$+B$:GET#1,B$:IFB$<>""  THEN240
  22. 250 FT$(N)=LEFT$(C$,3):IFST=0THEN140
  23. 260 CLOSE1:BF=FL(N):N=N-1:GOSUB580
  24. 270 CLOSE3:OPEN3,4:PRINT#3:PRINT#3:PRINT#3
  25. 280 FORI=1TO53:PRINT#3,"-";:NEXT:PRINT#3
  26. 290 PRINT#3,CHR$(91);SPC(51);CHR$(93)
  27. 300 T2$=FX$(0):IFL$<>""THENT2$=T2$+"  ("+L$+")"
  28. 310 T$=CHR$(91)+"     >>> "+FX$(0)
  29. 315 IFL$=""THENT$=T$+MID$(BL$,1,W-LEN(T$)-1):GOTO330
  30. 320 K=W-2-LEN(T$)-LEN(L$):T$=T$+MID$(BL$,1,K-1)+"("+L$+")"
  31. 330 T$=T$+"  "+CHR$(93):PRINT#3,T$
  32. 340 PRINT#3,CHR$(91);SPC(51);CHR$(93)
  33. 350 FORI=1TO53:PRINT#3,"-";:NEXT:PRINT#3
  34. 360 PRINT#3,CHR$(91);SPC(51)CHR$(93)
  35. 370 L=9:K=INT((N+1)/2):FORI=1TOK
  36. 380 T$=CHR$(91):J=I:GOSUB520:T$=T$+" ":J=K+I:GOSUB520:T$=T$+"  "+CHR$(93)
  37. 390 PRINT#3,T$:L=L+1:NEXT I
  38. 400 PRINT#3,CHR$(91);SPC(51);CHR$(93)
  39. 410 P=INT((BF*100/664)+.5):P$=MID$(STR$(P),2)
  40. 420 T$=CHR$(91)+MID$(BL$,1,14)+STR$(BF)+" BLOCKS ("+P$+"%) FREE"
  41. 430 T$=T$+MID$(BL$,1,W-LEN(T$)+1)+CHR$(93):PRINT#3,T$
  42. 440 FORI=LTO27:PRINT#3,CHR$(91);SPC(51);CHR$(93)
  43. 450 NEXT
  44. 460 FORI=1TO53:PRINT#3,"-";:NEXT
  45. 470 PRINT#3,:CLOSE3:CLOSE15:GOTO620
  46. 480 INPUT#15,ER,ER$:IFER<20THENRETURN
  47. 490 IFER=74ORER=21THENER$=ER$+"--IS DISK INSERTED?":GOTO510
  48. 500 ER$="DISK ERROR"+STR$(ER$+": "+ER$
  49. 510 PRINT ER$:END
  50. 520 T=TT(J):IFT=0THENT$=T$+MID$(BL$,1,24):RETURN
  51. 530 IFFL(T)<100THENT$=T$+" "
  52. 540 IFFL(T)<10THENT$=T$+" "
  53. 550 T$=T$+MID$(STR$(FL(T)),2)+" "+FX$(T)
  54. 560 IFLEN(FX$(T))<16THENT$=T$+MID$(BL$,1,16-LEN(FX$(T)))
  55. 570 T$=T$+" "+LEFT$(FT$(T),3):RETURN
  56. 580 FORI=1TON:TT(I)=I:NEXT
  57. 590 FORI=1TON-1:S=I:FORJ=I+1TON:IFFX$(TT(J))<FX$(TT(S))THENS=J
  58. 600 NEXTJ:IFS<>ITHENT=TT(I):TT(I)=TT(S):TT(S)=T
  59. 610 NEXT I:RETURN
  60. 620 INPUT "[147]ANOTHER DISK ";W$
  61. 650 IF W$="Y" THEN GOTO110
  62. 660 IF W$="N" THEN GOTO700
  63. 700 END
  64.